home *** CD-ROM | disk | FTP | other *** search
- OpenWorkspace "China1.ws5"
- Set wnd = getWindow(1)
- Set Camera = wnd.camera
- Set theTime = camera.time
- Set Direction = camera.Direction
- Set Location = camera.Location
- Set flt = wnd.Filters
- '---- end standard prologue'
- wnd.MDIWindow.State = SW_MAXIMIZE
- theTime.wnd.left = Screen.width
-
- Set obj_l = Location.CentralObject
- set obj_d=Direction.Object
- set pl =PlayerWindow
- pl.top=0
- pl.left=0
- set txt = CreateTextWindow
- txt.LoadFile "China1.html"
- 'txt.Locate 380,0,450,100
- txt.Locate Screen.width-450,0,450,100
- txt.Show
- settimemark
- ' pause 8000
- waitfortime 9000
- theTime.step = 1.000000000E+000
- txt.Locate Screen.width-450,0,450,130
- txt.LoadFile "China2.html"
- theTime.Forward
- WaitFrames 22 : theTime.Stop
- flt.objects.planets.Label(5)= False : UpdateWindows
- theTime.Forward
- WaitFrames 16 : theTime.Stop
- flt.objects.planets.Label(6)= False : UpdateWindows
- theTime.Forward
- WaitFrames 12 : theTime.Stop
- flt.objects.planets.Label(4)= False : UpdateWindows
- theTime.Forward
- WaitFrames 10 : theTime.Stop
- flt.objects.planets.Label(2)= False : UpdateWindows
- flt.objects.planets.Label(1)= False : UpdateWindows
- theTime.Forward
- WaitFrames 10 : theTime.Stop
- ' pause 8000
- waitfortime 18000
- theTime.mode = 0
- theTime.wnd.left = Screen.width-theTime.wnd.width-5
- txt.Locate Screen.width-450,0,450,115
- txt.LoadFile "China3.html"
- pause 1000
- flt.objects.planets.Label(1)= True
- flt.objects.planets.Label(2)= True
- flt.objects.planets.Label(4)= True
- flt.objects.planets.Label(6)= True
- flt.objects.planets.Label(5)= True : UpdateWindows
- ' pause 13000
- waitfortime 15000
- theTime.wnd.left= -theTime.wnd.width
- txt.Locate Screen.width-450,0,450,130
- txt.LoadFile "China4.html"
- theTime.step = 0.50000000000000E+000
- theTime.Forward
- WaitFrames 76 : theTime.Stop
- flt.objects.moons.Magnification(301)=6 : UpdateWindows
- flt.objects.moons.Magnification(301)=1 : UpdateWindows
- flt.objects.moons.Magnification(301)=6 : UpdateWindows
- flt.objects.moons.Magnification(301)=2 : UpdateWindows
- flt.objects.moons.Label(301)= False : UpdateWindows
- theTime.Forward
- WaitFrames 36 : theTime.Stop
- ' pause 9000
- waitfortime 18000
- txt.Close
- ' end recording
-
-